<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>13</cardCount>
<cardID>6515</cardID>
<listID>7669</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- script "System utilities"on menuMouseDown menuName,defMsg,disMsgsetErrorwait for 6 ticksif the mouse is down thenlockMouseUpput SYSpopMenu(menuName,defMsg,disMsg) into menuMsgif error() thenfail 3,"menuMouseDown","Operation failed","pop-up menu"exit menuMouseDownend ifif menuMsg is not empty thenset cursor to watchrepeat with i = 4 to the paramCountput ",param("&i&")" after item 1 of menuMsgend repeatsend item 1 of menuMsg && item 2 to 99 of menuMsg to the targetend ifend ifend menuMouseDownon menuMouseUp menuName,defMsg,disMsgsetErrorif mouseUpLocked() then exit menuMouseUpif defMsg is empty thenput SYSdefaultMenuMessage(menuName,defMsg,disMsg) into defMsgif error() thenfail 3,"menuMouseUp","Operation failed","pop-up menu"exit menuMouseUpend ifend ifif defMsg is not empty thenset cursor to watchrepeat with i = 4 to the paramCountput ",param("&i&")" after item 1 of defMsgend repeatsend item 1 of defMsg && item 2 to 99 of defMsg to the targetend ifend menuMouseUpon subMenuMouseDown menuName,defMsg,disMsg,subMenussetErrorif the mouse is down thenlockMouseUpput SYSpopMenu(menuName,defMsg,disMsg,subMenus) into meneMsgif error() thenfail 3,"subMenuMouseDown","Operation failed","pop-up menu"exit subMenuMouseDownend ifif menuMsg is empty thenfail 2,"subMenuMouseDown","Unknown message","pop-up menu"exit subMenuMouseDownend ifset cursor to watchrepeat with i = 5 to the paramCountput ",param("&i&")" after item 1 of menuMsgend repeatsend item 1 of menuMsg && item 2 to 99 of menuMsg to the targetend ifend subMenuMouseDownfunction createCard bgSpecsetErrorput the long name of this stack into currentStackget accessOtherCard(bgSpec)if error() then exit createCardgo to last cd of this bgchoose browse toolput "New Card" into operationsend "doMenu operation" to HyperCardif the long name of this stack is not currentStackthen put the long id of this cd into newCdelse put the id of this cd into newCdreturnFromOtherCardreturn newCdend createCardfunction copyCard cdSpecsetErrorstoreCard cdSpecif error() then exit copyCardput the id of this cd into currentCdlockAllchoose browse toolput "Paste Card" into operationsend "doMenu operation" to HyperCardput the id of this cd into newCdgo to currentCdunlockAllreturn newCdend copyCardon storeCard cdSpecsetErrorget accessOtherCard(cdSpec)if error() then exit storeCardchoose browse toolput "Copy Card" into operationsend "doMenu operation" to HyperCardreturnFromOtherCardend storeCardon deleteCards cdListlockAllchoose browse toolput "Delete Card" into operationput the long id of this cd into currentCdrepeat with i = 1 to the number of lines in cdListgo to line i of cdListset cantDelete of this card to falseif the long id of this cd is currentCd then put "" into currentCdsend "doMenu operation" to HyperCardend repeatif currentCd is not empty then go to currentCdunlockAllend deleteCardsfunction createPart partT,cdSpecsetErrorif first char of partT is "b"then put "button" into partTelse put "field" into partTget accessOtherCard(cdSpec)if error() then exit createPartput value("the number of card"&&partT&"s") into nset editBkgnd to falsechoose browse toolput "New" && partT into operationsend "doMenu operation" to HyperCardchoose browse toolif value("there is a cd"&&partT&&(n + 1)) thenput "card"&&partT&&"id"&&the short id of cd btn (nb + 1) into newPartelsefail 3,"createPart","Operation failed","create"returnFromOtherCardexit createPartend ifget the name of newPartput objectSpec("",it,"",cdSpec) into partSpecreturnFromOtherCardreturn partSpecend createPartfunction copyPart partSpec,cdSpecsetErrorstorePart partSpecif error() then exit copyPartget accessOtherCard(cdSpec)if error() thenfail 3,"copyPart","Missing card",cdSpecexit copyPartend ifput the number of cd btns into nbput the number of cd flds into nfset editBkgnd to falsechoose browse tooltype "V" with commandKey,shiftKeychoose browse toolif value("there is a cd btn"&&(nb + 1)) thenput "card button id"&&the short id of cd btn (nb + 1) into newPartelse if value("there is a cd fld"&&(nf + 1)) thenput "card field id"&&the short id of cd fld (nf + 1) into newPartelsefail 3,"copyPart","Operation failed","copy"returnFromOtherCardexit copyPartend ifput objectSpec("",newPart,"",cdSpec) into partSpecreturnFromOtherCardreturn partSpecend copyParton storePart partSpecsetErrorget accessOtherCard(partSpec)if error() then exit storePartput it into partSpecif not objectExists(partSpec) thenfail 3,"storePart","Missing part",partSpecreturnFromOtherCardexit storePartend ifif not the visible of partSpec thenshow partSpecput true into hiddenPartelseput false into hiddenPartend ifselect partSpectype "C" with commandKeychoose browse toolif hiddenPart then hide partSpecreturnFromOtherCardend storeParton deletePart partSpecsetErrorget accessOtherCard(partSpec)if error() then exit deletePartput it into partSpecif not objectExists(partSpec) thenfail 2,"deletePart","Missing part",partSpecreturnFromOtherCardexit deletePartend ifif not the visible of partSpec thenshow partSpecput true into hiddenPartelseput false into hiddenPartend ifselect partSpectype "X" with commandKeychoose browse toolreturnFromOtherCardend deleteParton goToCard cdSpec,vEffect,inNewWindow,dontPushif dontPush is not truethen pushCardPathif inNewWindow is true thenif vEffect is not emptythen visual effect vEffectgo to cdSpec in a new windowput the result into statusif status is "Cancel" thenif dontPush is not truethen get popCardPath()put empty into statusend ifelseput "Same window" into statusend ifif status is not empty thenif vEffect is not emptythen visual effect vEffectgo to cdSpecend ifend goToCardon returnBackput popCardPath() into cdSpecif cdSpec is not emptythen goToCard cdSpec,"iris close fast",false,trueend returnBackon goHomegoToCard "this card of Home","dissolve fast"end goHomeon goToBtnCard bgName,stNameput the short name of the target into cdNameif cdName is empty then exit goToBtnCardget objectSpec("","","","","bg",bgName,stName)put cardNamed(cdName,it) into cdSpecif cdSpec is empty thenfail 3,"goToBtnCard","Missing card",cdName,trueexit goToBtnCardend ifgoToCard cdSpec,"iris open fast",trueend goToBtnCardon goToFldCard bgName,stNameput line 1 of target into cdNameif cdName is empty then exit goToFldCardget objectSpec("","","","","bg",bgName,stName)put cardNamed(cdName,it) into cdSpecif cdSpec is empty thenfail 3,"goToFldCard","Missing card",cdName,trueexit goToFldCardend ifgoToCard cdSpec,"iris open fast",trueend goToFldCardon mouseWithinButton cursorNameget mouseUpLocked()if cursorName is emptythen put "Control" into cursorNameuseCursor cursorNameend mouseWithinButtonon mouseLeaveButtonset cursor to handend mouseLeaveButtonon mouseWithinText cursorNameget mouseUpLocked()if the style of the target contains "scrolling" thenif the mouseH > the right of the target - 18then exit mouseWithinTextend ifif cursorName is emptythen put "Menu" into cursorNameuseCursor cursorNameend mouseWithinTexton mouseLeaveTextset cursor to handend mouseLeaveTexton scrollTogetherput the scroll of the target into setValueput HCobjectType(the target) into fldTyperepeat with i = 1 to the paramCountget objectSpec(fldType,param(i))set the scroll of it to setValueend repeatend scrollTogetheron goToNextvisual effect wipe left fastgo to next card of this bgend goToNexton goToPreviousvisual effect wipe right fastgo to previous cd of this bgend goToPreviouson goToFirstvisual effect wipe right fast to blackgo to first card of this bgend goToFirston goToLastvisual effect wipe left fast to blackgo to last card of this bgend goToLaston checkBackupCardssetErrorask file "Backup file:"put it into fNameif fName is empty then exit checkBackupCardsset cursor to watchput "" into buSpecrepeat with i = 1 to the number of bkgndsset cursor to busysend "backupSpec" to bg iget the resultif it is empty then next repeatput return & it after buSpecend repeatif buSpec is not empty thenput the name of this stack into line 1 of buSpecput return & "end stack" after buSpecbackupStack fName,buSpecif error() thenfail 3,"checkBackupCards","Backup cards failed","",trueexit checkBackupCardsend ifend ifend checkBackupCardson checkRestoreCardsanswer file "Backup file:" of type "TEXT"put it into fNameif fName is empty then exit checkRestoreCardsset cursor to watchput "" into buSpecrepeat with i = 1 to the number of bkgndsset cursor to busysend "backupSpec" to bg iget the resultif it is empty then next repeatput return & it after buSpecend repeatif buSpec is not empty thenput the name of this stack into line 1 of buSpecput return & "end stack" after buSpecrestoreStack fName,buSpecif error() thenfail 3,"checkRestoreCards","Restore cards failed","",trueexit checkRestoreCardsend ifend ifend checkRestoreCardson backupSpecreturn emptyend backupSpec-- end script "System utilities"</script>
